home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
database
/
32psro20.zip
/
_SETUP.1
/
REO32S.EXE
/
0
/
RCDATA
/
TLABELDLG
/
TLABELDLG.txt
< prev
Wrap
Text File
|
1997-05-14
|
40KB
|
1,277 lines
object LabelDlg: TLabelDlg
Left = 200
Top = 141
ActiveControl = LoadBtn
BorderStyle = bsDialog
Caption = 'Print Labels'
ClientHeight = 337
ClientWidth = 368
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
PixelsPerInch = 96
ShowHint = True
OnCreate = FormCreate
OnDestroy = FormDestroy
TextHeight = 13
object ButtonPanel: TPanel
Left = 283
Top = 0
Width = 85
Height = 283
Align = alRight
BevelOuter = bvNone
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object PrintBtn: TBitBtn
Left = 5
Top = 63
Width = 77
Height = 27
Hint = 'Print Report On Selected Printer'
Caption = '&Print'
Default = True
TabOrder = 2
OnClick = PrintBtnClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF77333333333000000333333333377777733333330000}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 5
Top = 3
Width = 77
Height = 27
Hint = 'Close This Window'
Caption = '&Close'
TabOrder = 0
Kind = bkCancel
Margin = 2
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 5
Top = 33
Width = 77
Height = 27
Hint = 'Display Help Window'
TabOrder = 1
Kind = bkHelp
Margin = 2
Spacing = -1
IsControl = True
end
object LoadBtn: TBitBtn
Left = 5
Top = 153
Width = 77
Height = 27
Hint = 'Load Report Template From Disk File'
Caption = '&Load'
Default = True
TabOrder = 5
OnClick = LoadBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object SaveBtn: TBitBtn
Left = 5
Top = 183
Width = 77
Height = 27
Hint = 'Save Report Template To Disk File'
Caption = '&Save'
Default = True
TabOrder = 6
OnClick = SaveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object PreviewBtn: TBitBtn
Left = 5
Top = 123
Width = 77
Height = 27
Hint = 'Preview Report On Screen'
Caption = 'Pre&view'
Default = True
TabOrder = 4
OnClick = PreviewBtnClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
033333777777777773333330777777703333333773F333773333333330888033
33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9
FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000
8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0
8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0
8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000
8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF
FF037FFFFFFFFFFFFF7F000000000000000377777777777777730000}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object SelectBtn: TBitBtn
Left = 5
Top = 93
Width = 77
Height = 27
Hint = 'Select Printer'
Caption = 'S&elect'
Default = True
TabOrder = 3
OnClick = SelectBtnClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF77333333333000000333333333377777733333330000}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
end
object TabSet: TTabSet
Left = 0
Top = 316
Width = 368
Height = 21
Align = alBottom
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClick = TabSetClick
end
object Notebook: TNotebook
Left = 0
Top = 0
Width = 283
Height = 283
Align = alClient
PageIndex = 1
TabOrder = 2
IsControl = True
object TPage
Left = 0
Top = 0
Caption = 'Fields'
IsControl = True
object GroupBox1: TGroupBox
Left = 3
Top = 4
Width = 277
Height = 275
Caption = 'Data Fields'
TabOrder = 0
object Label1: TLabel
Left = 5
Top = 18
Width = 56
Height = 13
Caption = 'All Fields:'
end
object Label2: TLabel
Left = 157
Top = 18
Width = 91
Height = 13
Caption = 'Included Fields:'
end
object IncludeBtn: TSpeedButton
Left = 125
Top = 52
Width = 24
Height = 24
Hint = 'Include Selected Field'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
74010000424D7401000000000000760000002800000013000000130000000100
040000000000E400000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888FFFFF8888888888888888888000108888888888888888888FFFF58888
880088888888888000008888880A08888888888FFFFF8888880AA08888888880
00008888880AAA088888888FFFFF8888880AAAA08888888000008888880AAAAA
0888888131008888880AAAAAA088888095C08888880AAAAA0888888053028888
880AAAA088888887D5D58888880AAA0888888889091D8888880AA0888888888F
CFD78888880A08888888888A7AE288888800888888888887CF57888888888888
88888881F9758888888888888888888AFBAF8888888888888888888E666C0000
000000000000000000000000000000000000000000000000}
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = IncludeBtnClick
IsControl = True
end
object InLineBtn: TSpeedButton
Left = 125
Top = 80
Width = 24
Height = 24
Hint = 'Include In The Same Line'
Glyph.Data = {
80010000424D8001000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
88888888C00C8888888888888888888828EB8888888888888888888880948888
8888888888888888EC88888888880000888888882312888888880AA088888888
6160888888880AA0888888880811888888880AA088888888C0C8888800000AA0
000088883AE388880AAAAAAAAAA0888894C488880AAAAAAAAAA08888D5DC8888
00000AA0000088880100888888880AA08888888896F0888888880AA088888888
49F8888888880AA088888888080588888888000088888888C111888888888888
8888888800888888888888888888888818738888888888888888888821208888
8888888888888888444900000000000000000000000000000000000000000000
00000000}
OnClick = InLineBtnClick
end
object IncAllBtn: TSpeedButton
Left = 125
Top = 108
Width = 24
Height = 24
Hint = 'Include All Fields'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
74010000424D7401000000000000760000002800000013000000130000000100
040000000000E400000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888FFFFF8888888888888888888000108888888888888888888FFFF58008
8888880088888880000080A08888880A0888888FFFFF80AA0888880AA0888880
000080AAA088880AAA08888FFFFF80AAAA08880AAAA08880000080AAAAA0880A
AAAA0881310080AAAAAA080AAAAAA08095C080AAAAA0880AAAAA0880530280AA
AA08880AAAA08887D5D580AAA088880AAA088889091D80AA0888880AA088888F
CFD780A08888880A0888888A7AE280088888880088888887CF57888888888888
88888881F9758888888888888888888AFBAF8888888888888888888E666C0000
000000000000000000000000000000000000000000000000}
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = IncAllBtnClick
IsControl = True
end
object ExcludeBtn: TSpeedButton
Left = 125
Top = 152
Width = 24
Height = 24
Hint = 'Exclude Selected Field'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
74010000424D7401000000000000760000002800000013000000130000000100
040000000000E400000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888FFFFF8888888888888888888000108888888888888888888FFFF58888
888888800888888000008888888888090888888FFFFF88888888809908888880
00008888888809990888888FFFFF888888809999088888800000888888099999
0888888131008888809999990888888095C08888880999990888888053028888
8880999908888887D5D588888888099908888889091D8888888880990888888F
CFD78888888888090888888A7AE288888888888008888887CF57888888888888
88888881F9758888888888888888888AFBAF8888888888888888888E666C0000
000000000000000000000000000000000000000000000000}
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = ExcludeBtnClick
IsControl = True
end
object ExAllBtn: TSpeedButton
Left = 125
Top = 180
Width = 24
Height = 24
Hint = 'Exclude All Fields'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
74010000424D7401000000000000760000002800000013000000130000000100
040000000000E400000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888FFFFF8888888888888888888000108888888888888888888FFFF58888
888008888888008000008888880908888880908FFFFF88888099088888099080
00008888099908888099908FFFFF888099990888099990800000880999990880
9999908131008099999908099999908095C08809999908809999908053028880
9999088809999087D5D588880999088880999089091D8888809908888809908F
CFD78888880908888880908A7AE288888880088888880087CF57888888888888
88888881F9758888888888888888888AFBAF8888888888888888888E666C0000
000000000000000000000000000000000000000000000000}
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = ExAllBtnClick
IsControl = True
end
object MoveUpBtn: TSpeedButton
Left = 184
Top = 246
Width = 24
Height = 24
Hint = 'Move Up'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
3333333333777F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
3333333777737777F333333099999990333333373F3333373333333309999903
333333337F33337F33333333099999033333333373F333733333333330999033
3333333337F337F3333333333099903333333333373F37333333333333090333
33333333337F7F33333333333309033333333333337373333333333333303333
333333333337F3333333333333303333333333333337333333330000}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = MoveUpBtnClick
IsControl = True
end
object MoveDownBtn: TSpeedButton
Left = 216
Top = 246
Width = 24
Height = 24
Hint = 'Move Down'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337F33333333333333033333333333333373F333333333333090333
33333333337F7F33333333333309033333333333337373F33333333330999033
3333333337F337F33333333330999033333333333733373F3333333309999903
333333337F33337F33333333099999033333333373333373F333333099999990
33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F333333333333000333333333333377733333330000}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = MoveDownBtnClick
IsControl = True
end
object ListBox1: TListBox
Left = 5
Top = 34
Width = 113
Height = 231
Hint = 'List Of All Data Fields'
ItemHeight = 13
TabOrder = 0
end
object ListBox2: TListBox
Left = 158
Top = 34
Width = 113
Height = 207
Hint = 'Data Fields Selected For Report'
ItemHeight = 13
TabOrder = 1
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Page'
object GroupBox18: TGroupBox
Left = 3
Top = 1
Width = 277
Height = 275
Caption = 'Page Settings'
TabOrder = 0
object Image4: TImage
Left = 216
Top = 69
Width = 33
Height = 33
Picture.Data = {<image000.bmp>}
Visible = False
end
object Image3: TImage
Left = 216
Top = 69
Width = 33
Height = 33
Picture.Data = {<image001.bmp>}
end
object Image2: TImage
Left = 216
Top = 160
Width = 49
Height = 41
Picture.Data = {<image002.bmp>}
Visible = False
end
object Image1: TImage
Left = 216
Top = 160
Width = 49
Height = 41
Picture.Data = {<image003.bmp>}
end
object OrientationRG: TRadioGroup
Left = 7
Top = 151
Width = 202
Height = 49
Hint = 'Select Page Orientation'
Caption = 'Page Orientation'
Items.Strings = (
'Portrait'
'Landscape')
TabOrder = 1
OnClick = OrientationRGClick
end
object RadioGroup1: TRadioGroup
Left = 8
Top = 216
Width = 201
Height = 44
Hint = 'Units Of Measure (used by widths, heights, margins, etc.)'
Caption = 'Units Of Measure'
Items.Strings = (
'inches'
'centimeters')
TabOrder = 2
OnClick = RadioGroup1Click
end
object GroupBox17: TGroupBox
Left = 8
Top = 14
Width = 201
Height = 123
Caption = 'Page Size in Units'
TabOrder = 0
object Label26: TLabel
Left = 5
Top = 19
Width = 38
Height = 13
Caption = 'Width:'
end
object Label27: TLabel
Left = 101
Top = 19
Width = 42
Height = 13
Caption = 'Height:'
end
object SizeRG: TRadioGroup
Left = 8
Top = 35
Width = 185
Height = 84
Hint = 'Some Page Sizes may not be accepted by your Printer'
Items.Strings = (
'Letter'
'Legal'
'A4'
'Custom')
TabOrder = 2
OnClick = SizeRGClick
end
object PgWidthEd: TEdit
Left = 43
Top = 16
Width = 49
Height = 20
TabOrder = 0
OnKeyPress = LeftEdKeyPress
end
object PgHeightEd: TEdit
Left = 143
Top = 16
Width = 49
Height = 20
TabOrder = 1
OnKeyPress = LeftEdKeyPress
end
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Labels'
object GroupBox5: TGroupBox
Left = 3
Top = 1
Width = 277
Height = 275
Caption = 'Label Settings'
TabOrder = 0
object Label7: TLabel
Left = 212
Top = 217
Width = 58
Height = 26
Caption = 'Print From Label #:'
WordWrap = True
end
object GroupBox2: TGroupBox
Left = 8
Top = 106
Width = 201
Height = 41
Caption = 'Label Size [Units]'
TabOrder = 1
object Label3: TLabel
Left = 10
Top = 19
Width = 38
Height = 13
Caption = 'Width:'
end
object Label4: TLabel
Left = 101
Top = 19
Width = 42
Height = 13
Caption = 'Height:'
end
object WidthEd: TEdit
Left = 48
Top = 16
Width = 49
Height = 20
Hint = 'Label Width'
TabOrder = 0
OnKeyPress = LeftEdKeyPress
end
object HeightEd: TEdit
Left = 143
Top = 16
Width = 49
Height = 20
Hint = 'Label Height'
TabOrder = 1
OnKeyPress = LeftEdKeyPress
end
end
object GroupBox3: TGroupBox
Left = 8
Top = 13
Width = 263
Height = 93
Caption = 'Label Type'
TabOrder = 0
object LabelType: TRadioGroup
Left = 4
Top = 13
Width = 151
Height = 54
Items.Strings = (
'Avery (North America)'
'Avery (Europe)'
'Custom')
TabOrder = 0
OnClick = LabelTypeClick
end
object AveryType: TComboBox
Left = 4
Top = 68
Width = 151
Height = 21
Hint = 'AVERY Label Type'
ItemHeight = 13
TabOrder = 1
OnChange = AveryTypeChange
end
object LabelShape: TRadioGroup
Left = 159
Top = 13
Width = 100
Height = 77
Caption = 'Shape'
Items.Strings = (
'Round Rect.'
'Rectangle'
'Round')
TabOrder = 2
end
end
object GroupBox6: TGroupBox
Left = 8
Top = 230
Width = 201
Height = 41
Caption = 'Number Of Labels On One Page'
TabOrder = 4
object Label5: TLabel
Left = 5
Top = 19
Width = 43
Height = 13
Caption = 'Across:'
end
object Label6: TLabel
Left = 105
Top = 19
Width = 37
Height = 13
Caption = 'Down:'
end
object NumAcross: TEdit
Left = 48
Top = 16
Width = 49
Height = 20
Hint = 'Number Of Labels Horizontally'
TabOrder = 0
OnKeyPress = NumAcrossKeyPress
end
object NumDown: TEdit
Left = 143
Top = 16
Width = 49
Height = 20
Hint = 'Number Of Labels Vertically'
TabOrder = 1
OnKeyPress = NumAcrossKeyPress
end
end
object GroupBox7: TGroupBox
Left = 8
Top = 147
Width = 201
Height = 41
Caption = 'Label Pitch [Units] (size+gap)'
TabOrder = 2
object Label8: TLabel
Left = 10
Top = 19
Width = 38
Height = 13
Caption = 'Horiz.:'
end
object Label9: TLabel
Left = 110
Top = 19
Width = 32
Height = 13
Caption = 'Vert.:'
end
object SpaceW: TEdit
Left = 48
Top = 16
Width = 49
Height = 20
Hint = 'Horizontal Pitch (Label Width + Horiz. Space Between Labels)'
TabOrder = 0
OnKeyPress = LeftEdKeyPress
end
object SpaceH: TEdit
Left = 143
Top = 16
Width = 49
Height = 20
Hint = 'Vertical Pitch (Label Height + Vertical Space Between Labels)'
TabOrder = 1
OnKeyPress = LeftEdKeyPress
end
end
object GroupBox8: TGroupBox
Left = 8
Top = 189
Width = 201
Height = 41
Caption = 'Page Margins [Units]'
TabOrder = 3
object Label13: TLabel
Left = 21
Top = 19
Width = 27
Height = 13
Caption = 'Left:'
end
object Label14: TLabel
Left = 116
Top = 19
Width = 27
Height = 13
Caption = 'Top:'
end
object SpaceL: TEdit
Left = 48
Top = 16
Width = 49
Height = 20
Hint = 'Distance From Paper Edge To Left Edge Of First Label'
TabOrder = 0
OnKeyPress = LeftEdKeyPress
end
object SpaceT: TEdit
Left = 143
Top = 16
Width = 49
Height = 20
Hint = 'Distance From Paper Edge To Top Edge Of First Label'
TabOrder = 1
OnKeyPress = LeftEdKeyPress
end
end
object FromLabelEd: TEdit
Left = 224
Top = 246
Width = 34
Height = 20
Hint = 'First Label To Be Printed On First Page'
TabOrder = 5
OnKeyPress = NumAcrossKeyPress
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Body'
object GroupBox9: TGroupBox
Left = 3
Top = 4
Width = 277
Height = 275
Caption = 'Label Body'
TabOrder = 0
object GroupBox11: TGroupBox
Left = 8
Top = 20
Width = 225
Height = 44
Caption = 'Body Text Margins [Units]'
TabOrder = 0
object Label18: TLabel
Left = 14
Top = 20
Width = 27
Height = 13
Caption = 'Left:'
end
object Label19: TLabel
Left = 109
Top = 20
Width = 27
Height = 13
Caption = 'Top:'
end
object LabelLM: TEdit
Left = 41
Top = 17
Width = 49
Height = 20
Hint = 'Label Body Text Left Margin'
TabOrder = 0
OnKeyPress = LeftEdKeyPress
end
object LabelTM: TEdit
Left = 136
Top = 17
Width = 49
Height = 20
Hint = 'Label Body Text Top Margin'
TabOrder = 1
OnKeyPress = LeftEdKeyPress
end
end
object GroupBox10: TGroupBox
Left = 8
Top = 72
Width = 225
Height = 193
Caption = 'Text Font'
TabOrder = 1
object Label10: TLabel
Left = 16
Top = 16
Width = 66
Height = 13
Caption = 'Font Name:'
end
object Label11: TLabel
Left = 16
Top = 56
Width = 62
Height = 13
Caption = 'Font Style:'
end
object Label12: TLabel
Left = 16
Top = 104
Width = 58
Height = 13
Caption = 'Font Size:'
end
object FontEd: TEdit
Left = 16
Top = 32
Width = 185
Height = 20
TabStop = False
Color = clBtnFace
ReadOnly = True
TabOrder = 0
end
object StyleEd: TEdit
Left = 16
Top = 72
Width = 185
Height = 20
TabStop = False
Color = clBtnFace
ReadOnly = True
TabOrder = 1
end
object SizeEd: TEdit
Left = 16
Top = 120
Width = 185
Height = 20
TabStop = False
Color = clBtnFace
ReadOnly = True
TabOrder = 2
end
object FontBtn: TBitBtn
Left = 50
Top = 152
Width = 113
Height = 33
Hint = 'Select Body Text Font'
Caption = 'Change Font'
TabOrder = 3
OnClick = FontBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333FFF33FFFFF33333300033000
00333337773377777333333330333300033333337FF33777F333333330733300
0333333377FFF777F33333333700000073333333777777773333333333033000
3333333337FF777F333333333307300033333333377F777F3333333333703007
33333333377F7773333333333330000333333333337777F33333333333300003
33333333337777F3333333333337007333333333337777333333333333330033
3333333333377333333333333333033333333333333733333333333333333333
3333333333333333333333333333333333333333333333333333}
Margin = 5
NumGlyphs = 2
end
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Header/Footer'
object GroupBox4: TGroupBox
Left = 3
Top = 4
Width = 277
Height = 275
Caption = 'Label Header/Footer'
TabOrder = 0
object Label15: TLabel
Left = 8
Top = 13
Width = 117
Height = 13
Caption = 'Header/Footer Text:'
end
object GroupBox12: TGroupBox
Left = 8
Top = 151
Width = 257
Height = 120
Caption = 'Header/Footer Font'
TabOrder = 2
object Label16: TLabel
Left = 10
Top = 18
Width = 66
Height = 13
Caption = 'Font Name:'
end
object Label17: TLabel
Left = 10
Top = 42
Width = 62
Height = 13
Caption = 'Font Style:'
end
object Label20: TLabel
Left = 10
Top = 68
Width = 58
Height = 13
Caption = 'Font Size:'
end
object HFFontEd: TEdit
Left = 80
Top = 15
Width = 169
Height = 20
TabStop = False
Color = clBtnFace
ReadOnly = True
TabOrder = 0
end
object HFStyleEd: TEdit
Left = 80
Top = 40
Width = 169
Height = 20
TabStop = False
Color = clBtnFace
ReadOnly = True
TabOrder = 1
end
object HFSizeEd: TEdit
Left = 80
Top = 65
Width = 169
Height = 20
TabStop = False
Color = clBtnFace
ReadOnly = True
TabOrder = 2
end
object BitBtn1: TBitBtn
Left = 105
Top = 88
Width = 113
Height = 27
Hint = 'Select Header and Footer Font'
Caption = 'Change Font'
TabOrder = 3
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333FFF33FFFFF33333300033000
00333337773377777333333330333300033333337FF33777F333333330733300
0333333377FFF777F33333333700000073333333777777773333333333033000
3333333337FF777F333333333307300033333333377F777F3333333333703007
33333333377F7773333333333330000333333333337777F33333333333300003
33333333337777F3333333333337007333333333337777333333333333330033
3333333333377333333333333333033333333333333733333333333333333333
3333333333333333333333333333333333333333333333333333}
Margin = 5
NumGlyphs = 2
end
end
object HFText: TMemo
Left = 8
Top = 26
Width = 257
Height = 83
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ScrollBars = ssHorizontal
TabOrder = 0
end
object GroupBox13: TGroupBox
Left = 8
Top = 112
Width = 257
Height = 39
Caption = 'Header/Footer Margins [Units]'
TabOrder = 1
object Label21: TLabel
Left = 15
Top = 17
Width = 27
Height = 13
Caption = 'Left:'
end
object Label22: TLabel
Left = 103
Top = 17
Width = 27
Height = 13
Caption = 'Top:'
end
object HFLeft: TEdit
Left = 45
Top = 14
Width = 49
Height = 20
Hint = 'Header/Footer Left Margin'
TabOrder = 0
OnKeyPress = LeftEdKeyPress
end
object HFTop: TEdit
Left = 133
Top = 14
Width = 49
Height = 20
Hint = 'Header/Footer Top Margin'
TabOrder = 1
OnKeyPress = LeftEdKeyPress
end
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Logo'
object GroupBox14: TGroupBox
Left = 3
Top = 4
Width = 277
Height = 275
Caption = 'Logo Settings'
TabOrder = 0
object GroupBox15: TGroupBox
Left = 8
Top = 133
Width = 257
Height = 44
Caption = 'Logo Position [Units]'
TabOrder = 1
object Label24: TLabel
Left = 29
Top = 19
Width = 27
Height = 13
Caption = 'Left:'
end
object Label25: TLabel
Left = 117
Top = 19
Width = 27
Height = 13
Caption = 'Top:'
end
object LogoLEd: TEdit
Left = 59
Top = 17
Width = 49
Height = 20
Hint = 'Distance from Label Border to Left Edge of Logo'
TabOrder = 0
OnKeyPress = LeftEdKeyPress
end
object LogoTEd: TEdit
Left = 147
Top = 17
Width = 49
Height = 20
Hint = 'Distance from Label Border to Top Edge of Logo'
TabOrder = 1
OnKeyPress = LeftEdKeyPress
end
end
object GroupBox16: TGroupBox
Left = 8
Top = 24
Width = 257
Height = 97
Caption = 'Logo File'
TabOrder = 0
object Label23: TLabel
Left = 8
Top = 24
Width = 131
Height = 13
Caption = 'Logo File Name (BMP):'
end
object LogoFEd: TEdit
Left = 8
Top = 40
Width = 233
Height = 20
Hint = 'Logo File Name (must be BMP file)'
TabOrder = 0
end
object Button1: TButton
Left = 88
Top = 66
Width = 81
Height = 25
Hint = 'Select Logo File'
Caption = 'Select'
TabOrder = 1
OnClick = Button1Click
end
end
end
end
end
object Panel1: TPanel
Left = 0
Top = 283
Width = 368
Height = 33
Align = alBottom
BevelOuter = bvNone
TabOrder = 3
object PreviousBtn: TButton
Left = 16
Top = 3
Width = 89
Height = 25
Caption = '<< P&revious'
TabOrder = 0
Visible = False
OnClick = PreviousBtnClick
end
object NextBtn: TButton
Left = 162
Top = 3
Width = 89
Height = 25
Caption = '&Next >>'
TabOrder = 1
OnClick = NextBtnClick
end
end
object FontDialog1: TFontDialog
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 336
Top = 287
end
object ReportSystem1: TReportSystem
TitleSetup = 'Report Setup'
TitleStatus = 'Report Status'
TitlePreview = 'Report Preview'
SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup]
SystemFiler.FileName = 'label.tmp'
SystemFiler.StatusFormat = 'Generating page %p'
SystemFiler.StreamMode = smFile
SystemPreview.RulerType = rtBothIn
SystemPreview.ZoomFactor = 100.000000000000000000
SystemPrinter.ScaleX = 100.000000000000000000
SystemPrinter.ScaleY = 100.000000000000000000
SystemPrinter.StatusFormat = 'Printing page %p'
SystemPrinter.Title = 'Report'
SystemPrinter.UnitsFactor = 1.000000000000000000
OnPrint = ReportSystem1Print
OnBeforePrint = ReportSystem1BeforePrint
Left = 299
Top = 287
end
object LabelShell1: TLabelShell
NumDown = 4
LabelWidth = 2.500000000000000000
LabelHeight = 2.500000000000000000
SpacingLeft = 0.250000000000000000
SpacingTop = 0.500000000000000000
SpacingWidth = 2.750000000000000000
SpacingHeight = 2.500000000000000000
DrawExtents = True
LabelShape = lsRound
OnReportBefore = LabelShell1ReportBefore
OnLabelPrint = LabelShell1LabelPrint
OnLabelAfter = LabelShell1LabelAfter
OnReportAfter = LabelShell1ReportAfter
Left = 259
Top = 287
end
object OpenDialog1: TOpenDialog
Title = 'Select Logo File'
Left = 339
Top = 256
end
end